home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 74 / Tiger_Disk_074_20xx_Tiger-Crew-Disk_de_Side_D.d64 / schwarzes loch (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  50 lines
  1. 3 poke 53280,0:poke53281,0:print"":e=45:poke650,128
  2. 6 goto200
  3. 10 poke53281,0:poke53280,0:print"[147]":f=40:k=15:ti$="000000":t=f/2-k:c=f/2-2
  4. 11 u=50
  5. 15 fori=1to250
  6. 18 printtab(t)"[191][191][191][191]";tab(c)"[178]";tab(t+k)"[191][191][191][191]"
  7. 20 o=rnd(1)
  8. 21 if o<0.5 and t>2 then t=t-1
  9. 23 if o>0.5 and t+k<f-2 then t=t+1
  10. 26 get r$
  11. 29 if r$="q" then u=u-10
  12. 30 if r$="a" then c=c-1
  13. 31 if r$="p" then u=u+20
  14. 32 if r$="l" then c=c+1
  15. 33 if t+k>32 then print"[147]":t=5:c=10
  16. 40 if c>t+k then 100
  17. 41 if c=t and i>5then 100
  18. 44 forw=1tou:next:nexti
  19. 50 print" das schwarze loch liegt hinter dir
  20. 51 [153]"sys du hast es geschafft...
  21. 54 s$=right$(ti$,2):s=val(s$)
  22. 55 print" in "s" sekunden.
  23. 57 [129]i[178]1[164]3000:[130]:[137]1000
  24. 60 [151]198,0:[153]"loadsys noch ein spiel (j/n) ? "
  25. 61 [161]y$:[139]y$[179][177]"j"[175]y$[179][177]"n"[167]61
  26. 62 [139]y$[178]"j"[167]200
  27. 65 [158]64738
  28. 100 [153]" du bist verschwunden im nichts ..."
  29. 102 [129]i[178]1[164]3000:[130]:[137]60
  30. 200 [153]"load von twinbyte 8.2.1991"
  31. 201 [153]" fuer alle public domain fans  !!!"   
  32. 203 [153]" und fuer die die keine zeit haben."
  33. 205 [153]" moral:"
  34. 207 [153]" du bist in ein schwarzes loch ge-"
  35. 209 [153]" flogen. versuche nun dein ufo hinaus-"
  36. 210 [153]" zufliegen..."
  37. 212 [153]" du lenkst mit den tasten:"
  38. 213 [153]" a=links;l=rechts;q=schnell.;p=langsam"
  39. 215 [153]" viel glueck...!"
  40. 220 [153][166]30)"-taste-"
  41. 223 [161]s$:[139]s$[178]""[167] 223
  42. 224 [153][166]1)"load bestzeit "e" sekunden""
  43. 250 fort=1to1000:next:goto10
  44. 1000 rem rekord
  45. 1002 if s<e then print" neuer [158]rekord...":e=s:goto2000
  46. 1003 print" den rekord schaffst du nie !!!"
  47. 1005 fori=1to3000:next:goto60
  48. 2000 print" der neue highscore ist "e" sekunden."
  49. 2002 fori=1to2000:next:goto60
  50.